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It freauently harrens that ສ LISF rrogrammer wants a function 
to produce ສ data-structure or function containing constant 
and variable substructures. The usual solution is to Program 
a form containing a lot of data-structure comzosirs functions 
(like LIST CONS smd APPEND). The resulting exeression is 
hard to decirher for fumans  wunless more mnemonic 
constructor-functions are defined. A simrle was out is to 
write the resulting structure with its variable substructures 
especially marked. | | | | | 


For exameles return a lambda-exrression which will evaluate 
any form in an environment where X and Y are bound to 
successive elements of Ly and F receives the result 3 


(list ‘lambda ’ (form) u | 
(gy end (list (dist “lambda “(X Y) 
(list F *(eval Torm))) 
Lod) 


Comeare this with the inverse Quote version 1 


CClambda (Form)? y Ü is inverse Quote macro 
(Clamhbda (X Y) 
(zF (eval Torm))) y = means eval the following 
| y element l 
sl.) ງ y is as = but uses all 
ç elements of the value as 
elements in the current list 


As a second examples consider how WOOTS could have returned 
structures without ພຣໄາແ BUTLOQ 


(Š =TYPE ະຊບ CING= TNS) (QË ເປະ V))) 
The followings is the MACLISF code for @ (with the auxi 
harrowed and imeroved from 3 trace rachkase of the MIT-Al~-Lab). 


The function RELACO rerlaces ະ CONS. Feel free to inclure 
other macros mssins REAIMAC, 
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CREADMAC MACRO 


CNLAMEIIA (F) 
$ TURNS MACRO-CHARS ON WHILE DOING THING? 


9 (READMAC “A-LIST? “YHING-TO-NO: ) 7 
s “A-LIST HAS FAIRS OF CHAR AND (QUOTEN) FUNCTION? 


( (CAUR F) 
(LET 
(CHAR CCAAADIR F) EN (CBAADR F)) 
(RELACO 
F 


“LET 

@ 

((SYNTAX (STATUS SYNTAX =CHAR) 
FNTYF 
CFNTYF '#GHAR) 
OLE 


(GET "CHAR FNT TF)? 
(FROG? (SSTATUS MACRO =CHAR =FN) 
CREADMAC = (CGAUR F) += (CUOR FD) 
C(FUNCALL “SSTATUS ‘SYNTAX ’=CHAR SYNTAX) 
CAND FNTYF CPUTFROP “ະແດ OLO FNTYF) ) 
ç SET STATUS ANI RESET AF TERWARIIGS))))) 
s DO THING WITH READ OR REAL IST) 
 (K(RPLAGO F (CAADDR F) ¿(CUADBUR F)))))) 


(LET MACRO 
(NLAMERA CF) | 
(COND (¿(CADR F) (RFLACA F “LET1)) 
((CDUDR F) CRELACO F 'FROGN (CLOR F))) 
CCRPLACO F CCAADDOR F) (CBADDOR F)))))) 


(LET1 MACRO 
(NL AMRIA (F) 
CCLAMETA CV) 
(COND 
( (NULI. (CHOR VY) 
(RELACO F 3 <: 
(CONS “LAMBDA (CONS (LIST (CAR V)) (CDRR F))) 
(LIST (CADR YV)))) | 
(U (RELACO 
ໄ໌ 
(CONS LAMENA 
(CONS (LIST (CAF V)) 
(LIST 
(CONS “LETT (CONS (COEUR V) (CRER F)))))) 
(LIST (CADR V)))))) 
(CATR F)))) 
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(RUX MACRO 
(NLAWRDA (X) 
š LISTS WITH EV OR EUX ARE ແບດ.ປດ [ແນກ 
; AND THEIR RESULTS WILL BE CONSEDS 
>; OR APFENDELD RESFECTIVELY S 
(CLAMBDIA (CY) CRELACO X CCAR Y) (CUR Y))) (QUXI (CAUR X))))) 


(RUXI EXFR 
(LAMROA (X) 
(COND 
C (NURI. X) NIL) 
CCATOM X) (LIST RUOTE X?) 
((EQ (CAR X) EV) (CAUR X)) 
( (OFTIM 
(CONT 
( (ATOM (CAR X)) 
(LIST ‘CONS (LIST ‘QUOTE (CAR X?) (RUXI (CER X)))) 
(CEQ (GAAR X) ENX) 
(LIST ‘AFFENT (CAHAR X (RUXI (COR %)))) 
((LIST “CONS (AUKI (CAR X)) ເດປ#1 (CURK X))2))?))))) 


(OPF TIM EXER 
(LAMRDA (X) 
ç ELIMINATES UNNECESSARY FN-CALLS 5 
(SELECTA (CAR X) 
(CONS 
) (CONS X (LIST ——)y) ສສ (LIST X rr) 
(COND 
C(CADITIR X) 
(OND CEQ CCAADDIR X) “L IST) 
(SETQ X (CONS “LIST (CONS (CAUR X) (CHARER X)1))))) 
((SETQ X (LIST “LIST (CADR X)))))) 
CAPFENT 
§ (AFP FEND X (AFPFEND -:--)ງ) => (AFPEND X rr) 
(COND 
(ເເຕກ X? 
CANT CEQ (CAADTIR X) AFREEN) , 
(SETQ X (CONS “AFFEND (CONS (CADR XJ (CRAODR %)))))) 
CCSETQ X (CARR X21)))) a | 
NIL.) 
CAND (CATCH ເຕດ 'CAMRDA (ARG) 
(COND CCATOM ARG) (THROW NIL?) 
( (ED (CAR ARG) “QUOTE ) 
CCTHROW NIL )))) 
(CUR X))) 
(SETQ X (LIST “QUOTE (EVAL. %))) 
ç E IS-IN (APPEN CONS LIST) $ 
ç (F 'A “R ----) ee VALUE y 
ç WHERE VALUE = (EVAL (F “A “B --:-) )?7) 


SEND MORE USEFUL FUNCTIONS) 
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